library SSXU03;

uses
  SysUtils,
  Classes,
  Forms,
  uAktywujMB in 'uAktywujMB.pas';

{$R *.res}

procedure AktywujKlienta(MainApp: TApplication; ConnStr,
     aKlientID, aAdresCode: PChar); stdcall;
var
  AMB : TAktywujMB;
begin
  AMB := TAktywujMB.Create(Application);
  try
    AMB.ConnString := StrPas(ConnStr);
    AMB.SetParam(StrPas(aKlientID), StrPas(aAdresCode));
    AMB.Aktywuj;
  finally
    AMB.Free;
  end;
end;     

exports
  AktywujKlienta;

begin

end.
